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-- SegmentDef S.Mesa Edited by Sandman on March 21, 1978 5:13 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof iledefs" ; 

DEFINITIONS FROM AUoDefs, AUoFileDefs; 

SegmentDefs: DEFINITIONS ■ BEGIN 

FileHint: TYPE « AUoFileDefs. FH; 
Filelndex: TYPE « AUoFileDefs. FI; 
PageCount: TYPE » AUoDefs. PageCount; 
PageNumber: TYPE » AUoDefs .PageNumber; 

-- Basic Memory Addressing: 

PagePointer: PROCEDURE [a: POINTER] RETURNS [POINTER]; 
PageFromAddress: PROCEDURE [a: POINTER] RETURNS [PageNumber]; 
AddressFromPage: PROCEDURE [p: PageNumber] RETURNS [POINTER]; 

PageFree: PROCEDURE [page: PageNumber] RETURNS [BOOLEAN]; 

PagesFree: PROCEDURE [base: PageNumber, pages: PageCount] RETURNS [BOOLEAN]; 

-~ Primative System Objects: 

ObjectType: PRIVATE TYPE = {free, segment, file, length}; 

ObjectHandle: PRIVATE TYPE = POINTER TO Object; 

Object: TYPE = RECORD [ 
busy: PRIVATE BOOLEAN, 
body: SELECT tag: ObjectType FROM 
free => [ 

seal : PRIVATE [0. .378], 
size: PRIVATE FrobSize, 
fwdp, backp: PRIVATE FrobLink], 
segment => [ 

SELECT type: SegmentType FROM 
data => [ 

unused: [0. .37778], 
pages: [1 . .MaxVMPage+1], 
VMpage: [0. .MaxVMPage]], 
file => [ 

swappedin: BOOLEAN, 
read, write: BOOLEAN, 
class: FileSegmentClass, 
VMpage: [0 . .MaxVMPage], 
file: FileHandle, 
base: PageNumber, 
pages: [1 . .MaxVMPage+1], 
lock: LockCount, 

location: SELECT loc: SegmentLocation FROM 
disk «> [ 

hint: FileHint], 
remote => [ 

proc: RemoteSegProc, 
info: UNSPECIFIED], 
ENDCASE], 
ENDCASE], 
file «> [ 

open: BOOLEAN, 
length: BOOLEAN, 
lengthvalid: BOOLEAN, 
read, write, append: BOOLEAN, 
lock: LockCount, 
lengthchanged: BOOLEAN, 
unused: [0. .1778], 
swapcount: RefCount. 
segcount: SegCount, 
fp: FP], 
length »> [ 

unused: [0..7B], 

byte: [0. .BytesPerPage], 
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page: PageNumber, 
file: FileHandle. 
da: vDA], 
ENDCASE]; 

RefCount: TYPE « [0 . .MaxRef s]; 
MaxRefs: CARDINAL - 255; 

LockCount: TYPE « [0. .MaxLocks]; 
MaxLocks: CARDINAL « 127; 

SegCount: TYPE ■ [0. .MaxSegs]; 
MaxSegs: CARDINAL - 177777B; 

-- Free Objects 

Frob: PRIVATE TYPE « free Object; 

FrobHandle: PRIVATE TYPE = POINTER TO Frob; 

FrobLink: PRIVATE TYPE = ORDERED POINTER [0. . AUoDef s.PageSize) TO Frob; 

FrobSize: PRIVATE TYPE » [0. .AUoDef s .PageSize) ; 

FrobNull: PRIVATE FrobLink « LAST[FrobLink]; 



--SEGMENTS: 

DefauUPages: PageCount « 0; 
DefaultBase: PageNumber « MaxFilePage; 

SegmentObject: TYPE « segment Object; 
SegmentHandle: TYPE = POINTER TO SegmentObject; 

SegmentType: TYPE « {data, file}; 
SegmentLocation: TYPE = {disk, remote}; 
RemoteSegProc: TYPE » 

PROCEDURE [seg: FileSegmentHandle, command: RemoteSegCommand]; 
RemoteSegCommand: TYPE « UNSPECIFIED; 

VMtoSegment: PROCEDURE [a: POINTER] RETURNS [SegmentHandle]; 
SegmentAddress: PROCEDURE [seg: SegmentHandle] RETURNS [POINTER]; 

-- Data Segments: 

DataSegmentObject: TYPE = data SegmentObject; 
DataSegmentHandle: TYPE « POINTER TO DataSegmentObject; 

NewDataSegment: PROCEDURE [base: PageNumber, pages: PageCount] 

RETURNS [DataSegmentHandle]; 
NewFrameSegment: PROCEDURE [pages: PageCount] RETURNS [DataSegmentHandle]; 
DeleteDataSegment: PROCEDURE [seg: DataSegmentHandle]; 

VMtoDataSegment: PROCEDIWIE [a: POINTER] RETURNS [DataSegmentHandle]; 
DataSegmentAddress: PROCEDURE [seg: DataSegmentHandle] RETURNS [POINTER]; 

EnumerateDataSegments: PROCEDURE [ 

proc: PROCEDURE [DataSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [DataSegmentHaaine]; 

— File Segments: 

FileSegmentObject : TYPE = file SegmentObject; 
FileSegmentHandle: TYPE » POINTER TO FileSegmentObject; 

FileSegmentClass: TYPE « {code, other}; 

InvalidSegmentSize: SIGfiHL [pages: PageCount]; 

NewFileSegment: PROCEOUHE [ 

file: FileHandle, bas®: PageNumber, pages: PageCount, access: AccessOptions] 

RETURNS [FileSegraentMiwdle]; 
MoveFileSegment: PROCEOilME [ 

seg: FileSegmentHandla. base: PageNumber, pages: PageCount]; 
MapFileSegment: PROCEOl^E [ 

seg: FileSegmentHandl®, file: FileHandle, base: PageNumber]; 
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DeleteFileSegment: PROCEDURE [seg: FileSegmentHandle]; 

VMtoFileSegment: PROCEDURE [a: POINTER] RETURNS [FileSegmentHandle]; 
FileSegmentAddress: PROCEDURE [seg: FileSegmentHandle] RETURNS [POINTER]; 
GetFileSegmentDA: PROCEDURE [seg: FileSegmentHandle] RETURNS [vDA]; 
SetFileSegmentDA: PROCEDURE [seg: FileSegmentHandle, da: vDA]; 

EnumerateFileSegments: PROCEDURE [ 

proc: PROCEDURE [FileSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [FileSegmentHandle]; 

-- File Segment Swapping: 

SwapError: SIGNAL [seg: FileSegmentHandle]; 

SegmentFault: SIGNAL [seg: FileSegmentHandle, pages: PageCount]; 

Swapin, SwapUp, SwapOut, Unlock: PROCEDURE [seg: FileSegmentHandle]; 

-- Initializing File and Data Segments 

CopyDataToFileSegment: PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: FileSegmentHandle]; 
CopyFileToDataSegment: PROCEDURE [ 

fileseg: FileSegmentHandle, dataseg: DataSegmentHandle]; 
ChangeDataToFileSegment: PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: FileSegmentHandle]; 

Insuff icientVM: SIGNAL [needed: PageCount]; 

VMnotFree: SIGNAL [base: PageNumber, pages: PageCount]; 

—FILES: 

FileObject: TYPE = file Object; 

FileHandle: TYPE ^ POINTER TO FileObject; 

LengthObject: TYPE = length Object; 

LengthHandle: TYPE = POINTER TO LengthObject; 

AccessOptions: TYPE = [0..7]; 
Read: AccessOptions » 1; 
Write: AccessOptions « 2; 
Append: AccessOptions « 4; 
-- Delete: AccessOptions ■ 8; 

VersionOptions: TYPE « [0..3]; 
NewFileOnly: VersionOptions « 1; 
OldFileOnly: VersionOptions « 2; 

Defaul tAccess : AccessOptions « 0; 
Defaul tVersion: VersionOptions « 0; 

FileNameError: SIGNAL [name: STRING]; 

InvalidFP: SIGNAL [fp: POINTER TO FP]; 

FileError, FileAccessError: SIGNAL [file: FileHandle]; 

NewFile: PROCEDURE [ 

name: STRING, access: AccessOptions, version: VersionOptions] 

RETURNS [FileHandle]; 
InsertFile: PROCEDURE [fp: POINTER TO FP, access: AccessOptions] 

RETURNS [FileHandle]; 
OpenFile, CloseFile: PROCEDURE [file: FileHandle]; 
LockFile, UnlockFile: PROCEDURE [file: FileHandle]; 
ReleaseFile, DestroyFile: PROCEDURE [file: FileHandle]; 

GetFileAccess: PROCEDURE [file: FileHandle] RETURNS [access: AccessOptions]; 
SetFileAccess: PROCEDURE [file: FileHandle, access: AccessOptions]; 

InsertFileLength: PROCEDURE [file: FileHandle. fa: POINTER TO FA]; 
GetEndOfFile: PROCEDURE [file: FileHandle] 

RETURNS [page: PageNumber. byte: CARDINAL]; 
SetEndOfFile: PROCEDURE [ 

file: FileHandle, page: PageNumber, byte: CARDINAL]; 
SetFileLength: PROCEDURE [file: FileHandle, fa: POINTER TO FA]; 
UpdateFileLength: PROCEDURE [file: FileHandle, fa: POINTER TO FA]; 
GetFileLength: PROCEDURE [file: FileHandle. fa: POINTER TO FA]; 
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JumpToPage: PROCEDURE [ 

cfa: POINTER TO CFA, page: PageNumber, buf: POINTER] 
RETURNS [prev.next: vDA]; 

GetFileFP: PROCEDURE [file: FileHancne, fp: POINTER TO FP]; 
FindFile: PROCEDURE [fp: POINTER TO FP] RETURNS [FileHandle]; 

EnumerateFiles: PROCEDURE [ 

proc: PROCEDURE [FileHandle] RETURNS [BOOLEAN]] 
RETURNS [file: FileHandle]; 

END, 



